
<%
' Get Email Server Function
dim Efs
Efilepath=server.MapPath("access/backend/emailserver.txt")

set Efs=server.CreateObject("scripting.filesystemobject")

if not Efs.fileexists(Efilepath) then 
	Efs.createtextfile(Efilepath)
	%><script type="text/vbscript">msgbox"Your email was not sent because no Email Server has been set. Please advise your administrator of this",,"No Email Server Set"</script><%
	application("EmailServer")=""
end if

set Ef=Efs.OpenTextFile(Efilepath,1,true)

if Ef.AtEndOfStream then

else
	application("EmailServer")=Ef.readline()
end if
Ef.close
set Ef=nothing
set Efs=nothing
%>
